home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / RAMSES 2.2 / RAMSES 2.2 Extras / DMBaseExtra / DMHeapWatch.MOD (no checks) < prev    next >
Encoding:
Modula Implementation  |  1996-06-21  |  1.2 KB  |  48 lines  |  [TEXT/MEDT]
  1. IMPLEMENTATION MODULE DMHeapWatch ;
  2.  
  3.   (*
  4.  
  5.         Implementation and Revisions:
  6.         ============================
  7.  
  8.         Author  Date        Description
  9.         ------  ----        -----------
  10.  
  11.         or      05/02/90    First implementation (DM 2.0, MacMETH 2.6+)
  12.         af        26/10/90    showLevels added
  13.         af/dg    05/11/90    allocInfoProc, deallocInfoProc added
  14.         dg        14/02/92    DM V2.2, MacMETH V3.2
  15. --- END OF MODULE HISTORY ---  *)  
  16.  
  17.  
  18.   FROM SYSTEM IMPORT ADDRESS;
  19.   
  20.   VAR
  21.     i: INTEGER;
  22.  
  23.   PROCEDURE DoNotShowLevels (s: ARRAY OF CHAR; i: INTEGER; size: LONGINT);
  24.   BEGIN
  25.   END DoNotShowLevels;
  26.   
  27.   PROCEDURE DummyAllocInfo(pBefore, pAfter: ADDRESS; size: LONGINT; lev: INTEGER);
  28.   BEGIN
  29.   END DummyAllocInfo;
  30.     
  31.   PROCEDURE DummyDeallocInfo(pBefore, pAfter: ADDRESS; lev: INTEGER);
  32.   BEGIN
  33.   END DummyDeallocInfo;
  34.  
  35. BEGIN
  36.   showLevels  := DoNotShowLevels;
  37.   debugProc   := DoNotShowLevels;
  38.   allocInfoProc   := DummyAllocInfo;
  39.   deallocInfoProc := DummyDeallocInfo ;
  40.   ptrCount    := 0;
  41.   handleCount := 0;
  42.   windowCount := 0; TECount := 0; controlCount := 0;
  43.   menuCount   := 0; dialogCount := 0;
  44.   FOR i:= 0 TO maxBlocks DO
  45.     blockSizes[i] := 0D;
  46.   END(*FOR*);
  47. END DMHeapWatch .